home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 23
/
AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso
/
Tools
/
Text-Viewer
/
Notes
/
english
/
Violinkey.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1999-11-06
|
43KB
|
1,425 lines
/* subprogram for "Notes.pprx" */
signal on halt
signal on break_c
signal on break_e
signal on break_d
call ppm_SetStyle(N)
noteneingabe:
/* smallest notedistance */
sysart = "notesystem:2"
systemart = ppm_Getform("Please repeat your choice of the notesystems... (2, 1v oder 1b)", 3, sysart)
select
when systemart == '2' then zdist = 4
when systemart == '1v' then zdist = 2
when systemart == '1b' then zdist = 2
otherwise noteneingabe()
end
zdist2 = zdist-2
xgrdform = "(1,2,4,8 oder 16)"
xgrd = ppm_GetForm("Pleace give in the smallest note distance ...(nothing=Break!)", 3, xgrdform)
if xgrd == '' then exit_msg("Break")
select
when xgrd == '1' then xg =0.7
when xgrd == '2' then xg =1.4
when xgrd == '4' then xg =2.8
when xgrd == '8' then xg =5.6
when xgrd == '16' then xg =11.2
otherwise notenwert()
end
/* pointmessure of the notes */
notepkt = 26
call ppm_SetJustification(0)
zz = 0 /* linecounter (german:Zeilenzähler) */
notex = 0
notey = 0
page = ppm_CurrentPage()
clickpos:
res = ppm_GetUserText(2, "Manual or align to a box ? m/b")
if res == 'M' then res = 'm'
if res == 'B' then res = 'b'
click:
select
when res == 'm' then
do
clickpos = ppm_GetClickPosition("Pleace click on the place, where I shall begin...")
if clickpos == 0 then
do
click()
end
else
do
notey = word(clickpos, 2)
notex = word(clickpos, 1)
if notex < 2.5 then notex = 2.5
xw = notex
yw = notey
if systemart ~= '2' then
do
if notey <= 3.3 then zz= 0 /* zz is linecounter */
if ((notey > 3.5)&(notey < 5.3)) then zz = 2
if ((notey > 5.5)&(notey < 7.3)) then zz = 4
if ((notey > 7.5)&(notey < 9.3)) then zz = 6
if ((notey > 9.5)&(notey < 11.3)) then zz = 8
if ((notey > 11.5)&(notey < 13.3)) then zz = 10
if ((notey > 13.5)&(notey < 15.3)) then zz = 12
if ((notey > 15.5)&(notey < 17.3)) then zz = 14
if ((notey > 17.5)&(notey < 19.3)) then zz = 16
if ((notey > 19.5)&(notey < 21.3)) then zz = 18
if ((notey > 21.5)&(notey < 23.3)) then zz = 20
if ((notey > 23.5)&(notey < 25.3)) then zz = 22
if notey > 25.3 then noteneingabe()
end
else
do
if notey <= 3.3 then zz= 0
if ((notey > 5.5)&(notey < 7.3)) then zz = 4
if ((notey > 9.5)&(notey < 11.3)) then zz = 8
if ((notey > 13.5)&(notey < 15.3)) then zz = 12
if ((notey > 17.5)&(notey < 19.3)) then zz = 16
if ((notey > 21.5)&(notey < 23.3)) then zz = 20
end
end
end
when res == 'b' then
clickb:
do
clickbox = ppm_ClickOnBox("Pleace click on a box, where I shall work away ...")
if clickbox == '' then clickb()
pos = ppm_GetBoxPosition(clickbox)
notex = word(pos, 1)
notey = word(pos, 2)
xw = notex
yw = notey
call ppm_BoxAtPosn(notex, notey, page)
if notey <= 3.3 then zz= 0
if ((notey > 5.5)&(notey < 9.3)) then zz = 4
if ((notey > 9.5)&(notey < 13.3)) then zz = 8
if ((notey > 13.5)&(notey < 17.3)) then zz = 12
if ((notey > 17.5)&(notey < 21.3)) then zz = 16
if ((notey > 21.5)&(notey < 25.3)) then zz = 20
if notex <= 1 then
do
noteneingabe()
end
end
otherwise clickpos()
end
/* pointerbox */
zbid = ppm_CreateBox(notex, zz+0.5, 0.3, 1, 0)
call ppm_SetSize(26)
zbn = ppm_GetBoxName(zbid)
call ppm_TextIntoBox(zbn, '5')
notenwert:
do forever
cr = '0a'x
form = "wort name ['n'at.]"
call ppm_SetBoxPosition(zbid, notex, zz+0.5)
call ppm_UpdateScreen()
eingabe = ppm_GetForm("Please give in for the notes ...(nothing=BREAK )", 7, form)
if eingabe = '' then
do
call ppm_DeleteBox(zbid)
exit_msg("Break")
end
nw = word(eingabe, 1)
nn = word(eingabe, 2)
if nw == 'P' then nw = 'p'
al = word(eingabe, 3)
if al == 'N' then al = 'n'
IF nw == 'D' then nw = 'd'
if nw == 'C' then nw = 'c'
if nw == 'L' then nw = 'l'
if nn == 'L' then nn = 'l'
if nw == "NEW" then nw = "new"
if nw == "END" then nw = "end"
select
when nn=='GB2' then nn = 'Gb2'
when nn=='BB2' then nn = 'Bb2'
when nn=='AB2' then nn = 'Ab2'
when nn=='DB3' then nn = 'Db3'
when nn=='EB3' then nn = 'Eb3'
when nn=='GB3' then nn = 'Gb3'
when nn=='AB3' then nn = 'Ab3'
when nn=='BB3' then nn = 'Bb3'
when nn=='DB4' then nn = 'Db4'
when nn=='EB4' then nn = 'Eb4'
when nn=='GB4' then nn = 'Gb4'
when nn=='AB4' then nn = 'Ab4'
when nn=='BB4' then nn = 'Bb4'
when nn=='DB5' then nn = 'Db5'
when nn=='EB5' then nn = 'Eb5'
otherwise NOP
end
/* x-distance of the notes */
select
when nw=='s' then
do
xw = xg/16
nw='x'
yv = 0
end
when nw=='S' then
do
xw = xg/16
nw='X'
yv = 0.47
end
when nw=='e' then
do
xw = xg/8
nw='e'
yv = 0
end
when nw=='E' then
do
xw = xg/8
nw='E'
yv = 0.47
end
when nw=='q' then
do
xw = xg/4
nw='q'
yv = 0
end
when nw=='Q' then
do
xw = xg/4
nw='Q'
yv = 0.47
end
when nw=='h' then
do
xw = xg/2
yv = 0
end
when nw=='H' then
do
xw = xg/2
yv = 0.47
end
when nw=='w' then
do
xw = xg
nw='w'
yv = 0
end
when nw=='W' then
do
xw = xg
nw='W'
yv = 0.47
end
/*point after the note */
when nw == 'pt' then
do
if notex < 3 then
do
notex = bakx
zz = zz - zdist
call ppm_SetSize(25)
box#id = ppm_CreateBox(notex+0.4, yw+zz+0.26-yv, 0.3, 0.9, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'd')
end
else
do
call ppm_SetSize(25)
box#id = ppm_CreateBox(notex-xw+0.4, yw+zz+0.26-yv, 0.3, 0.9, 0)
call ppm_SetSize(20)
call ppm_TextIntoBox(box#id, 'd')
end
select
when nn == '1' then
do
xw = xg
notex = notex+xw
end
when nn == '2' then
do
xw = xg/2
notex = notex+xw
end
when nn == '4' then
do
xw = xg/4
notex = notex+xw
end
when nn == '8' then
do
xw = xg/8
notex = notex+xw
end
when nn == '16' then
do
xw = xg/16
notex = notex+xw
end
when nn == 'l' then
do
xw = 0.2
notex = notex+xw
end
otherwise notenwert()
end
if notex >=18.7 then
do
notex = 2.5
zz = zz + zdist
end
px = notex - 4
py = zz-1
if px < 0 then px = 0
call ppm_SetPagePosition(px, py+2)
notenwert()
end
when nw == 'PT' then
do
if notex < 3 then
